home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Mansion9Install#1 Folder / Mansion BBS ƒ / Mansion Data / Scripts / WelcomeMsg Script < prev   
Encoding:
Text File  |  1992-09-06  |  1.5 KB  |  75 lines  |  [TEXT/QED1]
  1. ;
  2. ;    BBS USER WELCOME MESSAGE
  3. ;    For Mansion 8 BBS
  4. ;
  5. ;    By Mark Toland
  6. ;    Zoo System Mac BBS
  7. ;    Fidonet 290/2
  8. ;    515-279-3073  9600 v.32 v.42bis
  9. ;
  10. ;  
  11. ;
  12. ; • To display this message just use the DISPLAY command 
  13. ; • in your Logon Script.
  14. ; •• EDIT THE PATHNAME IN THE END PART OF THIS SCRIPT TO THE
  15. ; •• PLACE YOU WANT THE FILE STORED ON YOUR DRIVE.
  16. ;
  17. ; • Prepare some strings
  18. MOVE @LIMIT,&250
  19. LOADUSERINFO
  20. LIMIT &250
  21. MOVE @DATE,&97
  22. MOVE @RETURN,&91
  23. MOVE Entered by -> ,&96
  24. CONCAT &96,&280
  25. ;MOVE *,&93
  26. ;CONCAT &96,&93
  27. MOVE _Welcome_Message_______________________________________________________________,&70
  28. ;
  29. /START
  30. PRINT 
  31. PRINT This option allows you to enter a 'welcome message' that
  32. PRINT is displayed to other callers when they log on the BBS.
  33. PRINT 
  34. PRINT
  35. PRINT Here is the current welcome message.
  36. ; •• EDIT THE PATHNAME
  37. ;PRINT &70
  38. DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage
  39. PRINT
  40. DRAW Would you like replace this with one of your own? (Y/N):
  41. INPUT 1,&99
  42. IF &99,=,N
  43.     END
  44. ENDIF
  45. IF &99,<>,Y
  46.     REVERSE /START
  47. ENDIF
  48. MOVE HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage,&10
  49. OUTPUT &10
  50. WRITE &70
  51. PRINT 
  52. PRINT *Keep it NICE as this is a public board*
  53. MOVE HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage,&10
  54. EDITFILE &10,&11,50,&12
  55. ;
  56. /REVIEW
  57. ;
  58. ;
  59. MOVE HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage,&10
  60. OUTPUT &10
  61. APPEND ----------------
  62. APPEND &96
  63. MOVE @DATE,&30
  64. MOVE 1,&120
  65. SPACES &120
  66. MOVE Date Entered - ,&31
  67. CONCAT &31,&120
  68. CONCAT &31,&30
  69. APPEND &31
  70. CLOSE
  71. DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage
  72. PRINT 
  73. PRINT
  74. END
  75.